home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Dos / readtext.e < prev    next >
Encoding:
Text File  |  1994-11-27  |  653 b   |  28 lines
  1. /* Lit un exemple de fichier. Notez que ce programme n'a pas de limite dure
  2.    sur lea longueur du fichier */
  3.  
  4. CONST MAXLINELEN=1000
  5.  
  6. PROC main()
  7.   DEF fh,buf[MAXLINELEN]:ARRAY,n=0,last=NIL,s,first=NIL
  8.   IF fh:=Open(arg,OLDFILE)
  9.     WHILE Fgets(fh,buf,MAXLINELEN)
  10.       IF (s:=String(StrLen(buf)))=NIL THEN Raise("MEM")
  11.       StrCopy(s,buf,ALL)
  12.       IF last THEN Link(last,s) ELSE first:=s
  13.       last:=s
  14.       INC n
  15.     ENDWHILE
  16.     Close(fh)
  17.     WriteF('FICHIER: "\s", \d lignes.\n\n',arg,n)
  18.     s:=first
  19.     WHILE s
  20.       PutStr(s)
  21.       s:=Next(s)
  22.     ENDWHILE
  23.     DisposeLink(first)
  24.   ELSE
  25.     WriteF('Pas de fichier : "\s"\n',arg)
  26.   ENDIF
  27. ENDPROC
  28.